home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MacOberon.cpt / MacOberonToolBoxInterface.sit / MacTextEdit.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1990-08-30  |  2.1 KB  |  55 lines  |  [.Ob./.Ob*]
  1. Syntax10.Scn.Fnt
  2. MODULE MacTextEdit;    (* Macintosh OS Interface Module    Michael Franz, 30.08.90    Incomplete Definition *)
  3. IMPORT
  4.     TY:= MacTypes, QD:= MacQuickDraw;
  5. CONST
  6.     teJustLeft*= 0;    teJustCenter*= 1;    teJustRight*= -1;
  7.     TERec*= RECORD +
  8.         destRect*, viewRect*, selRect*: TY.Rect;
  9.         lineHeight*, fontAscent*: INTEGER;
  10.         selPoint*: TY.Point;
  11.         selStart*, selEnd*: INTEGER;
  12.         active*: INTEGER;
  13.         wordBreak*, clikLoop*: TY.ProcPtr;
  14.         clickTime*: LONGINT;
  15.         clickLoc*: INTEGER;
  16.         caretTime*: LONGINT;
  17.         caretState*: INTEGER;
  18.         just*: INTEGER;
  19.         teLength*: INTEGER;
  20.         hText*: TY.Handle;
  21.         recalBack*, recalLines*, clikStuff*: INTEGER;
  22.         crOnly*: INTEGER;
  23.         txFont*: INTEGER;
  24.         txFace*: SHORTINT;    (* Style *)
  25.         txMode*: INTEGER;
  26.         txSize*: INTEGER;
  27.         inPort*: QD.GrafPtr;
  28.         highHook*, caretHook*: TY.ProcPtr;
  29.         nLines*: INTEGER;
  30.         lineStarts*: ARRAY + 16000 OF INTEGER
  31.     END;
  32.     TEPtr*= POINTER + TO TERec;
  33.     TEAnchor*= RECORD + p*: TEPtr END;
  34.     TEHandle*= POINTER + TO TEAnchor;
  35. PROCEDURE - TENew*(destRect, viewRect: TY.Rect): TEHandle    0A9H, 0D2H;
  36. PROCEDURE - TEDispose*(hTE: TEHandle)    0A9H, 0CDH;
  37. PROCEDURE - TEIdle*(hTE: TEHandle)    0A9H, 0DAH;
  38. PROCEDURE - TEClick*(pt: TY.Point; extend: BOOLEAN; hTE: TEHandle)    0A9H, 0D4H;
  39. PROCEDURE - TESetSelect*(selStart, selEnd: LONGINT; hTE: TEHandle)    0A9H, 0D1H;
  40. PROCEDURE - TEActivate*(hTE: TEHandle)    0A9H, 0D8H;
  41. PROCEDURE - TEDeactivate*(hTE: TEHandle)    0A9H, 0D9H;
  42. PROCEDURE - TEKey*(key: TY.UnpackedChar; hTE: TEHandle)    0A9H, 0DCH;
  43. PROCEDURE - TECut*(hTE: TEHandle)    0A9H, 0D6H;
  44. PROCEDURE - TECopy*(hTE: TEHandle)    0A9H, 0D5H;
  45. PROCEDURE - TEPaste*(hTE: TEHandle)    0A9H, 0DBH;
  46. PROCEDURE - TEDelete*(hTE: TEHandle)    0A9H, 0D7H;
  47. PROCEDURE - TEInsert*(text: TY.Ptr; length: LONGINT; hTE: TEHandle)    0A9H, 0DEH;
  48. PROCEDURE - TESetJust*(just: INTEGER; hTE: TEHandle)    0A9H, 0DFH;
  49. PROCEDURE - TEUpdate*(rUpdate: TY.Rect; hTE: TEHandle)    0A9H, 0D3H;
  50. PROCEDURE - TEScroll*(dh, dv: INTEGER; hTE: TEHandle)    0A9H, 0DDH;
  51. PROCEDURE - TESelView*(hTE: TEHandle)    0A8H, 011H;
  52. PROCEDURE - TEPinScroll*(dh, dv: INTEGER; hTE: TEHandle)    0A8H, 012H;
  53. PROCEDURE - TEAutoView*(fAuto: BOOLEAN; hTE: TEHandle)    0A8H, 013H;
  54. END MacTextEdit.
  55.